home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / T2WIN-32.ZIP / T2WIN32P.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-01-01  |  94.3 KB  |  1,466 lines
  1. Attribute VB_Name = "T2WIN_32_DEF"
  2. Option Explicit
  3.  
  4. ' object
  5.  
  6. Declare Function cObjectGetBoolean Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As Boolean
  7. Declare Function cObjectGetByte Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As Byte
  8. Declare Function cObjectGetInteger Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As Integer
  9. Declare Function cObjectGetLong Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As Long
  10. Declare Function cObjectGetString Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As String
  11. Declare Function cObjectGetStringW Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As String
  12. Declare Function cObjectGetVariant Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String) As Variant
  13. Declare Function cObjectGetIndex Lib "t2win32p.dll" (ByVal Obj As Object) As Integer
  14.  
  15. Declare Function cGetObjCaption Lib "t2win32p.dll" (ByVal Obj As Object) As String
  16. Declare Function cGetObjContainer Lib "t2win32p.dll" (ByVal Obj As Object) As String
  17. Declare Function cGetObjParent Lib "t2win32p.dll" (ByVal Obj As Object) As String
  18. Declare Function cGetObjTag Lib "t2win32p.dll" (ByVal Obj As Object) As String
  19. Declare Function cGetObjText Lib "t2win32p.dll" (ByVal Obj As Object) As String
  20. Declare Function cGetObjDataField Lib "t2win32p.dll" (ByVal Obj As Object) As String
  21. Declare Function cGetObjDataSource Lib "t2win32p.dll" (ByVal Obj As Object) As String
  22. Declare Function cGetObjName Lib "t2win32p.dll" (ByVal Obj As Object) As String
  23. Declare Function cGetObjIndex Lib "t2win32p.dll" (ByVal Obj As Object) As Integer
  24. Declare Function cGetObjNameIndex Lib "t2win32p.dll" (ByVal Obj As Object) As String
  25. Declare Function cGetObjClassName Lib "t2win32p.dll" (ByVal Obj As Object) As String
  26.  
  27. Declare Sub cObjectPutBoolean Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As Boolean)
  28. Declare Sub cObjectPutByte Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As Byte)
  29. Declare Sub cObjectPutInteger Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As Integer)
  30. Declare Sub cObjectPutLong Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As Long)
  31. Declare Sub cObjectPutString Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As String)
  32. Declare Sub cObjectPutVariant Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Property As String, ByVal Value As Variant)
  33.  
  34. Declare Sub cPutObjCaption Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Value As String)
  35. Declare Sub cPutObjDataField Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Value As String)
  36. Declare Sub cPutObjDataSource Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Value As String)
  37. Declare Sub cPutObjTag Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Value As String)
  38. Declare Sub cPutObjText Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Value As String)
  39.  
  40. Declare Sub cObjectMethod Lib "t2win32p.dll" (ByVal Obj As Object, ByVal Method As String, ByVal Value As Variant)
  41.  
  42. Declare Sub cDisableFI Lib "t2win32p.dll" (ByVal Obj As Object)
  43. Declare Sub cEnableFI Lib "t2win32p.dll" (ByVal Obj As Object)
  44.  
  45. Declare Function cCloseAllEditForm Lib "t2win32p.dll" () As Integer
  46. Declare Function cHideAllEditForm Lib "t2win32p.dll" () As Integer
  47. Declare Function cHideDebugForm Lib "t2win32p.dll" () As Integer
  48. Declare Function cUnHideAllEditForm Lib "t2win32p.dll" () As Integer
  49. Declare Function cUnHideDebugForm Lib "t2win32p.dll" () As Integer
  50.  
  51. Declare Sub cEnableForm Lib "t2win32p.dll" (ByVal hWnd As Long)
  52. Declare Sub cEnableRedraw Lib "t2win32p.dll" (ByVal hWnd As Long)
  53. Declare Sub cObjEnableRedraw Lib "t2win32p.dll" (ByVal Obj As Object)
  54. Declare Sub cDisableForm Lib "t2win32p.dll" (ByVal hWnd As Long)
  55. Declare Sub cDisableRedraw Lib "t2win32p.dll" (ByVal hWnd As Long)
  56. Declare Sub cObjDisableRedraw Lib "t2win32p.dll" (ByVal Obj As Object)
  57.  
  58. ' windows 95
  59.  
  60. '  structure for windows 95 memory
  61. Type tagMEMORYSTATUS
  62.    dwLength             As Long        'sizeof(MEMORYSTATUS)
  63.    dwMemoryLoad         As Long        'percent of memory in use
  64.    dwTotalPhys          As Long        'bytes of physical memory
  65.    dwAvailPhys          As Long        'free physical memory bytes
  66.    dwTotalPageFile      As Long        'bytes of paging file
  67.    dwAvailPageFile      As Long        'free bytes of paging file
  68.    dwTotalVirtual       As Long        'user bytes of address space
  69.    dwAvailVirtual       As Long        'free user bytes
  70. End Type
  71.  
  72. Declare Sub cMemoryStatus Lib "t2win32p.dll" (MEMORYSTATUS As tagMEMORYSTATUS)
  73. Declare Function cPBFileCopy Lib "t2win32p.dll" (ByVal hWndParent As Long, ByVal FileNameIn As String, ByVal FileNameOut As String) As Integer
  74. Declare Function cDBFileCopy Lib "t2win32p.dll" (ByVal Title As String, ByVal CaptionFrom As String, ByVal CaptionTo As String, ByVal CaptionButton As String, ByVal FileNameIn As String, ByVal FileNameOut As String) As Integer
  75.  
  76. ' file
  77.  
  78. '  definition for error type for ISFileNameVALID
  79. Public Const IFV_ERROR = 0
  80. Public Const IFV_NAME_TOO_LONG = 1
  81. Public Const IFV_EXT_TOO_LONG = 2
  82. Public Const IFV_TOO_MANY_BACKSLASH = 3
  83. Public Const IFV_BAD_DRIVE_LETTER = 4
  84. Public Const IFV_BAD_COLON_POS = 5
  85. Public Const IFV_EXT_WITHOUT_NAME = 6
  86.  
  87. ' definition for sFile attributes
  88. Public Const A_RDONLY = &H1             'Read only file
  89. Public Const A_HIDDEN = &H2             'Hidden file
  90. Public Const A_SYSTEM = &H4             'System file
  91. Public Const A_SUBDIR = &H10            'Subdirectory
  92. Public Const A_ARCHIVE = &H20           'Archive file
  93. Public Const A_NORMAL = &H80            'Normal sFile - No read/write restrictions
  94. Public Const A_COMPRESSED = &H800       'Compressed file
  95. Public Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  96. Public Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  97.  
  98. ' definition for drive type
  99. Public Const DRIVE_UNKNOWN = 0
  100. Public Const DRIVE_NO_ROOT_DIR = 1
  101. Public Const DRIVE_REMOVABLE = 2
  102. Public Const DRIVE_FIXED = 3
  103. Public Const DRIVE_REMOTE = 4
  104. Public Const DRIVE_CDROM = 5
  105. Public Const DRIVE_RAMDISK = 6
  106.  
  107. '  definition for sFile sort
  108. Public Const SORT_ASCENDING = 1
  109. Public Const SORT_DESCENDING = 2
  110. Public Const SORT_CASE_SENSITIVE = 4
  111. Public Const SORT_CASE_INSENSITIVE = 8
  112.  
  113. ' definition for sFile I/O
  114. Public Const EOFILE = -1
  115. Public Const SEEK_CUR = 1
  116. Public Const SEEK_END = 2
  117. Public Const SEEK_SET = 0
  118.  
  119. ' definition for sFile uucp
  120. Public Const MODE_UUENCODE = 0
  121. Public Const MODE_UUDECODE = 1
  122.  
  123. ' definition for error type for SplitFile
  124. Public Const SPLIT_BAD_PARTSIZE = -1
  125. Public Const SPLIT_BAD_SOURCE_FILENAME = -2
  126. Public Const SPLIT_BAD_TARGET_FILENAME = -3
  127. Public Const SPLIT_CANT_OPEN_SOURCE = -4
  128. Public Const SPLIT_CANT_CREATE_TARGET = -5
  129.  
  130. ' definition for error type for CutFile
  131. Public Const CUT_BAD_POSITION = -1
  132. Public Const CUT_BAD_SOURCE_FILENAME = -2
  133. Public Const CUT_BAD_TARGET1_FILENAME = -3
  134. Public Const CUT_BAD_TARGET2_FILENAME = -4
  135. Public Const CUT_POSITION_TOO_BIG = -5
  136. Public Const CUT_CANT_OPEN_SOURCE = -6
  137. Public Const CUT_CANT_CREATE_TARGET1 = -7
  138. Public Const CUT_CANT_CREATE_TARGET2 = -8
  139.  
  140. ' definition for error type for GetFileDateTime
  141. Public Const GET_FILE_DT_NO_ERROR = -1
  142. Public Const GET_FILE_DT_CANT_OPEN_FILE = 8
  143. Public Const GET_FILE_DT_CANT_GET_TIME = 9
  144. Public Const GET_FILE_DT_CANT_CNV_CREATION = 1
  145. Public Const GET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  146. Public Const GET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  147.  
  148. ' definition for error type for SetFileDateTime
  149. Public Const SET_FILE_DT_NO_ERROR = -1
  150. Public Const SET_FILE_DT_CANT_OPEN_FILE = 8
  151. Public Const SET_FILE_DT_CANT_SET_TIME = 9
  152. Public Const SET_FILE_DT_CANT_CNV_CREATION = 1
  153. Public Const SET_FILE_DT_CANT_CNV_LAST_ACCESS = 2
  154. Public Const SET_FILE_DT_CANT_CNV_LAST_WRITE = 4
  155.  
  156. ' structure for sFile attributes
  157. Type FileAttributeType
  158.    ErrNo             As Integer
  159.    Archive           As Integer
  160.    Hidden            As Integer
  161.    Normal            As Integer
  162.    ReadOnly          As Integer
  163.    SubDir            As Integer
  164.    System            As Integer
  165.    Compressed        As Integer
  166. End Type
  167.  
  168. ' structure for split path
  169. Type tagSPLITPATH
  170.    nDrive            As String
  171.    nDir              As String
  172.    nName             As String
  173.    nExt              As String
  174. End Type
  175.  
  176. ' structure for GetFileDateTime & SetFileDateTime
  177. Type tagSYSTEMTIME
  178.    wYear             As Integer
  179.    wMonth            As Integer
  180.    wDayOfWeek        As Integer
  181.    wDay              As Integer
  182.    wHour             As Integer
  183.    wMinute           As Integer
  184.    wSecond           As Integer
  185.    wMilliseconds     As Integer
  186. End Type
  187.  
  188. Declare Function cAllSubDirectories Lib "t2win32p.dll" (ByVal lpBaseDirectory As String, nDir As Long) As String
  189. Declare Function cChDir Lib "t2win32p.dll" (ByVal lpDir As String) As Integer
  190. Declare Function cChDrive Lib "t2win32p.dll" (ByVal lpDrive As String) As Integer
  191. Declare Function cCmpFileAttribute Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  192. Declare Function cCmpFileContents Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer
  193. Declare Function cCmpFileSize Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  194. Declare Function cCmpFileTime Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  195. Declare Function cCountDirectories Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  196. Declare Function cCountFiles Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  197. Declare Function cCutFile Lib "t2win32p.dll" (ByVal SourceFile As String, ByVal TargetFile1 As String, ByVal TargetFile2 As String, ByVal CutPosition As Long) As Long
  198. Declare Function cFileSize Lib "t2win32p.dll" (ByVal lpFilename As String) As Long
  199. Declare Function cIsFilenameValid Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  200. Declare Function cKillDir Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  201. Declare Function cKillDirFilesAll Lib "t2win32p.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  202. Declare Function cKillDirs Lib "t2win32p.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  203. Declare Function cKillFile Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  204. Declare Function cKillFileAll Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  205. Declare Function cKillFiles Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  206. Declare Function cKillFilesAll Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  207. Declare Function cMakeDir Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  208. Declare Function cMakeMultipleDir Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  209. Declare Function cFileResetAllAttrib Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  210. Declare Function cFileResetArchive Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  211. Declare Function cFileResetFlag Lib "t2win32p.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  212. Declare Function cFileResetHidden Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  213. Declare Function cFileResetReadOnly Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  214. Declare Function cFileResetSystem Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  215. Declare Function cFileSetAllAttrib Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  216. Declare Function cFileSetArchive Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  217. Declare Function cFileSetAttrib Lib "t2win32p.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  218. Declare Function cFileSetFlag Lib "t2win32p.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  219. Declare Function cFileSetHidden Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  220. Declare Function cFileSetReadOnly Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  221. Declare Function cFileSetSystem Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  222. Declare Function cUniqueFileName Lib "t2win32p.dll" (Txt As String) As String
  223. Declare Function cFileCopy Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  224. Declare Function cFileCopy2 Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  225. Declare Function cFileDrive Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  226. Declare Function cFileGetAttrib Lib "t2win32p.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  227. Declare Function cFileMove Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  228. Declare Function cFilePathExists Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  229. Declare Function cFilesSize Lib "t2win32p.dll" (ByVal nFilename As String) As Double
  230. Declare Function cFilesSizeOnDisk Lib "t2win32p.dll" (ByVal nFilename As String) As Double
  231. Declare Function cFilesSlack Lib "t2win32p.dll" (ByVal nFilename As String, Size1 As Double, Size2 As Double) As Integer
  232. Declare Function cGetDiskClusterSize Lib "t2win32p.dll" (ByVal lpDrive As String) As Double
  233. Declare Function cGetDiskFree Lib "t2win32p.dll" (ByVal lpDrive As String) As Double
  234. Declare Function cGetDiskSpace Lib "t2win32p.dll" (ByVal lpDrive As String) As Double
  235. Declare Function cGetDiskUsed Lib "t2win32p.dll" (ByVal lpDrive As String) As Double
  236. Declare Function cGetFileDateTime Lib "t2win32p.dll" (ByVal nFilename As String, SysCreation As Any, SysLastAccess As Any, SysLastWrite As Any) As Integer
  237. Declare Function cRcsCountFileDir Lib "t2win32p.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  238. Declare Function cRcsFilesSize Lib "t2win32p.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  239. Declare Function cRcsFilesSizeOnDisk Lib "t2win32p.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  240. Declare Function cRcsFilesSlack Lib "t2win32p.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Double, Size2 As Double) As Integer
  241. Declare Function cSubDirectory Lib "t2win32p.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  242. Declare Function cFileChangeChars Lib "t2win32p.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  243. Declare Function cFileCompressTab Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  244. Declare Function cFileExpandTab Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  245. Declare Function cFileFilter Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  246. Declare Function cFileFilterNot Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  247. Declare Function cFileLineCount Lib "t2win32p.dll" (ByVal lpFilename As String) As Long
  248. Declare Function cFileMerge Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal fileTo As String) As Long
  249. Declare Function cFileSearch Lib "t2win32p.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  250. Declare Function cFileSearchAndReplace Lib "t2win32p.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  251. Declare Function cFileSearchCount Lib "t2win32p.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  252. Declare Function cFileToUpper Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  253. Declare Function cFileToLower Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  254. Declare Function cTruncatePath Lib "t2win32p.dll" (ByVal nFilename As String, ByVal NewLength As Long) As String
  255. Declare Function cFullPath Lib "t2win32p.dll" (ByVal nFilename As String) As String
  256. Declare Function cMakePath Lib "t2win32p.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  257. Declare Function cSplitPath Lib "t2win32p.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  258. Declare Function cFileDateCreated Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  259. Declare Function cFileLastDateAccess Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  260. Declare Function cFileLastDateModified Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  261. Declare Function cFileTimeCreated Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  262. Declare Function cFileLastTimeAccess Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  263. Declare Function cFileLastTimeModified Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  264. Declare Function cGetDriveType Lib "t2win32p.dll" (ByVal lpDrive As String) As Integer
  265. Declare Function cFileSort Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Long) As Long
  266. Declare Function cFileStatistics Lib "t2win32p.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  267. Declare Function cFilesInDirectory Lib "t2win32p.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  268. Declare Function cFilesInDirOnDisk Lib "t2win32p.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer
  269. Declare Function cFilesInDirToArray Lib "t2win32p.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As String) As Integer
  270. Declare Function cRenameFile Lib "t2win32p.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  271. Declare Function cSearchFile Lib "t2win32p.dll" (ByVal lpStartPath As String, ByVal lpFileMask As String, ByVal lpFileResult As String) As Long
  272. Declare Function cSplitFile Lib "t2win32p.dll" (ByVal SourceFile As String, ByVal TargetFiles As String, ByVal PartSize As Long) As Long
  273. Declare Function cFileUUCP Lib "t2win32p.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String, ByVal EncodeDecode As Integer) As Long
  274. Declare Function cSetFileDateTime Lib "t2win32p.dll" (ByVal nFilename As String, SysCreation As Any, SysLastAccess As Any, SysLastWrite As Any) As Integer
  275.  
  276. ' binary
  277.  
  278. Declare Function cCreateBits Lib "t2win32p.dll" (ByVal nBits As Long) As String
  279. Declare Function cFindBitReset Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As Long
  280. Declare Function cFindBitSet Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As Long
  281. Declare Function cGetBit Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As Integer
  282. Declare Function cGetBitB Lib "t2win32p.dll" (ByVal Value As Byte, ByVal Position As Integer) As Integer
  283. Declare Function cGetBitD Lib "t2win32p.dll" (ByVal Value As Double, ByVal Position As Integer) As Integer
  284. Declare Function cGetBitI Lib "t2win32p.dll" (ByVal Value As Integer, ByVal Position As Integer) As Integer
  285. Declare Function cGetBitL Lib "t2win32p.dll" (ByVal Value As Long, ByVal Position As Integer) As Integer
  286. Declare Function cGetBitS Lib "t2win32p.dll" (ByVal Value As Single, ByVal Position As Integer) As Integer
  287. Declare Function cGiveBitPalindrome Lib "t2win32p.dll" () As String
  288. Declare Function cIsBitPalindrome Lib "t2win32p.dll" (Txt As String) As Integer
  289. Declare Sub cReverseAllBits Lib "t2win32p.dll" (Txt As String)
  290. Declare Sub cReverseAllBitsByChar Lib "t2win32p.dll" (Txt As String)
  291. Declare Sub cSetAllBits Lib "t2win32p.dll" (Txt As String, ByVal Value As Integer)
  292. Declare Sub cSetBit Lib "t2win32p.dll" (Txt As String, ByVal Position As Long, ByVal Value As Integer)
  293. Declare Sub cSetBitToFalse Lib "t2win32p.dll" (Txt As String, ByVal Position As Long)
  294. Declare Sub cSetBitToTrue Lib "t2win32p.dll" (Txt As String, ByVal Position As Long)
  295. Declare Sub cSetBitB Lib "t2win32p.dll" (Value As Byte, ByVal Position As Integer, ByVal BitValue As Integer)
  296. Declare Sub cSetBitD Lib "t2win32p.dll" (Value As Double, ByVal Position As Integer, ByVal BitValue As Integer)
  297. Declare Sub cSetBitI Lib "t2win32p.dll" (Value As Integer, ByVal Position As Integer, ByVal BitValue As Integer)
  298. Declare Sub cSetBitL Lib "t2win32p.dll" (Value As Long, ByVal Position As Integer, ByVal BitValue As Integer)
  299. Declare Sub cSetBitS Lib "t2win32p.dll" (Value As Single, ByVal Position As Integer, ByVal BitValue As Integer)
  300. Declare Sub cToggleAllBits Lib "t2win32p.dll" (Txt As String)
  301. Declare Sub cToggleBit Lib "t2win32p.dll" (Txt As String, ByVal Position As Long)
  302. Declare Function cB2I Lib "t2win32p.dll" (ByVal Txt As String) As Integer
  303. Declare Function cB2L Lib "t2win32p.dll" (ByVal Txt As String) As Long
  304. Declare Function cI2B Lib "t2win32p.dll" (ByVal Value As Integer) As String
  305. Declare Function cL2B Lib "t2win32p.dll" (ByVal Value As Long) As String
  306. Declare Function cFromBinary Lib "t2win32p.dll" (Text As String) As String
  307. Declare Function cFromBinary2 Lib "t2win32p.dll" (Text As String, Bin As String) As String
  308. Declare Function cToBinary Lib "t2win32p.dll" (Text As String) As String
  309. Declare Function cToBinary2 Lib "t2win32p.dll" (Text As String, Bin As String) As String
  310.  
  311. ' compress
  312.  
  313. Public Const CMPEXP_FILEIN_CANT_BE_NULL = -1
  314. Public Const CMPEXP_FILEOUT_CANT_BE_NULL = -2
  315. Public Const CMPEXP_FILEIN_AND_FILEOUT_CANT_BE_THE_SAME = -3
  316. Public Const CMPEXP_FILEIN_CANT_BE_OPENED = -4
  317. Public Const CMPEXP_FILEOUT_CANT_BE_CREATED = -5
  318. Public Const CMPEXP_COMPRESS_OR_EXPAND_ERROR = -6
  319. Public Const CMPEXP_CANT_GET_FILEOUT_SIZE = -7
  320.  
  321. Declare Function cASHFileCompress Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal order As Integer) As Long
  322. Declare Function cASHFileExpand Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal order As Integer) As Long
  323. Declare Function cFileCompress Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  324. Declare Function cFileExpand Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  325. Declare Function cGZIPFileCompress Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  326. Declare Function cGZIPFileExpand Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  327. Declare Function cGZIPStringCompress Lib "t2win32p.dll" (Txt As String) As String
  328. Declare Function cGZIPStringExpand Lib "t2win32p.dll" (Txt As String) As String
  329. Declare Function cLZARIcompress Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  330. Declare Function cLZARIexpand Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  331. Declare Function cStringCompress Lib "t2win32p.dll" (Txt As String) As String
  332. Declare Function cStringExpand Lib "t2win32p.dll" (Txt As String) As String
  333.  
  334. ' timer
  335.  
  336. Declare Function cCheckWait Lib "t2win32p.dll" (ByVal nTimer As Integer) As Integer
  337. Declare Function cReadBasisTimer Lib "t2win32p.dll" () As Long
  338. Declare Function cReadTimer Lib "t2win32p.dll" (ByVal nTimer As Integer) As Long
  339. Declare Sub cSetWait Lib "t2win32p.dll" (ByVal nTimer As Integer, ByVal nValue As Long)
  340. Declare Function cSleep Lib "t2win32p.dll" (ByVal delay As Long) As Integer
  341. Declare Sub cStartBasisTimer Lib "t2win32p.dll" ()
  342. Declare Sub cStartTimer Lib "t2win32p.dll" (ByVal nTimer As Integer)
  343. Declare Sub cStartWait Lib "t2win32p.dll" (ByVal nTimer As Integer)
  344. Declare Sub cStopBasisTimer Lib "t2win32p.dll" ()
  345. Declare Function cStopTimer Lib "t2win32p.dll" (ByVal nTimer As Integer) As Long
  346. Declare Function cTimerClose Lib "t2win32p.dll" (ByVal TimerHandle As Integer) As Integer
  347. Declare Function cTimerOpen Lib "t2win32p.dll" () As Integer
  348. Declare Function cTimerRead Lib "t2win32p.dll" (ByVal TimerHandle As Integer) As Long
  349. Declare Function cTimerStart Lib "t2win32p.dll" (ByVal TimerHandle As Integer) As Integer
  350.  
  351. ' array
  352.  
  353. '  definition for array on disk
  354. Public Const PUT_ARRAY_ON_DISK = 0
  355. Public Const GET_ARRAY_ON_DISK = 1
  356.  
  357. '  structure for VB array
  358. Type ArrayType
  359.    Bounds            As Long
  360.    LBound            As Integer
  361.    UBound            As Integer
  362.    ElemSize          As Integer
  363.    IndexCount        As Integer
  364.    TotalElem         As Integer
  365. End Type
  366.  
  367. Declare Function cAddD Lib "t2win32p.dll" (array() As Double, ByVal nValue As Double) As Integer
  368. Declare Function cAddI Lib "t2win32p.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  369. Declare Function cAddL Lib "t2win32p.dll" (array() As Long, ByVal nValue As Long) As Integer
  370. Declare Function cAddS Lib "t2win32p.dll" (array() As Single, ByVal nValue As Single) As Integer
  371. Declare Function cArrayOnDisk Lib "t2win32p.dll" (ByVal sFile As String, array() As Any, ByVal GetPut As Integer) As Long
  372. Declare Function cArrayPrm Lib "t2win32p.dll" (array() As Any, nArray As ArrayType) As Integer
  373. Declare Function cArrayStringOnDisk Lib "t2win32p.dll" (ByVal sFile As String, array() As String, ByVal GetPut As Integer, rRecords As Long) As Long
  374. Declare Function cCountD Lib "t2win32p.dll" (array() As Double, ByVal Value As Double) As Long
  375. Declare Function cCountI Lib "t2win32p.dll" (array() As Integer, ByVal Value As Integer) As Long
  376. Declare Function cCountL Lib "t2win32p.dll" (array() As Long, ByVal Value As Long) As Long
  377. Declare Function cCountS Lib "t2win32p.dll" (array() As Single, ByVal Value As Single) As Long
  378. Declare Function cDeviationD Lib "t2win32p.dll" (array() As Double) As Double
  379. Declare Function cDeviationI Lib "t2win32p.dll" (array() As Integer) As Double
  380. Declare Function cDeviationL Lib "t2win32p.dll" (array() As Long) As Double
  381. Declare Function cDeviationS Lib "t2win32p.dll" (array() As Single) As Double
  382. Declare Function cFillD Lib "t2win32p.dll" (array() As Double, ByVal nValue As Double) As Integer
  383. Declare Function cFillI Lib "t2win32p.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  384. Declare Function cFillL Lib "t2win32p.dll" (array() As Long, ByVal nValue As Long) As Integer
  385. Declare Function cFillS Lib "t2win32p.dll" (array() As Single, ByVal nValue As Single) As Integer
  386. Declare Function cFillIncrD Lib "t2win32p.dll" (array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer
  387. Declare Function cFillIncrI Lib "t2win32p.dll" (array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer
  388. Declare Function cFillIncrL Lib "t2win32p.dll" (array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer
  389. Declare Function cFillIncrS Lib "t2win32p.dll" (array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer
  390. Declare Function cMaxD Lib "t2win32p.dll" (array() As Double) As Double
  391. Declare Function cMaxI Lib "t2win32p.dll" (array() As Integer) As Integer
  392. Declare Function cMaxL Lib "t2win32p.dll" (array() As Long) As Long
  393. Declare Function cMaxS Lib "t2win32p.dll" (array() As Single) As Single
  394. Declare Function cMaxNotXD Lib "t2win32p.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double
  395. Declare Function cMaxNotXI Lib "t2win32p.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer
  396. Declare Function cMaxNotXL Lib "t2win32p.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long
  397. Declare Function cMaxNotXS Lib "t2win32p.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single
  398. Declare Function cMeanD Lib "t2win32p.dll" (array() As Double) As Double
  399. Declare Function cMeanI Lib "t2win32p.dll" (array() As Integer) As Double
  400. Declare Function cMeanL Lib "t2win32p.dll" (array() As Long) As Double
  401. Declare Function cMeanS Lib "t2win32p.dll" (array() As Single) As Double
  402. Declare Function cMinD Lib "t2win32p.dll" (array() As Double) As Double
  403. Declare Function cMinI Lib "t2win32p.dll" (array() As Integer) As Integer
  404. Declare Function cMinL Lib "t2win32p.dll" (array() As Long) As Long
  405. Declare Function cMinS Lib "t2win32p.dll" (array() As Single) As Single
  406. Declare Function cMinNotXD Lib "t2win32p.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double
  407. Declare Function cMinNotXI Lib "t2win32p.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer
  408. Declare Function cMinNotXL Lib "t2win32p.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long
  409. Declare Function cMinNotXS Lib "t2win32p.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single
  410. Declare Function cReverseSortD Lib "t2win32p.dll" (array() As Double) As Integer
  411. Declare Function cReverseSortI Lib "t2win32p.dll" (array() As Integer) As Integer
  412. Declare Function cReverseSortL Lib "t2win32p.dll" (array() As Long) As Integer
  413. Declare Function cReverseSortS Lib "t2win32p.dll" (array() As Single) As Integer
  414. Declare Function cSearchI Lib "t2win32p.dll" (array() As Integer, ByVal Value As Integer) As Long
  415. Declare Function cSearchL Lib "t2win32p.dll" (array() As Long, ByVal Value As Long) As Long
  416. Declare Function cSearchS Lib "t2win32p.dll" (array() As Single, ByVal Value As Single) As Long
  417. Declare Function cSearchD Lib "t2win32p.dll" (array() As Double, ByVal Value As Double) As Long
  418. Declare Function cSetD Lib "t2win32p.dll" (array() As Double, ByVal nValue As Double) As Integer
  419. Declare Function cSetI Lib "t2win32p.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  420. Declare Function cSetL Lib "t2win32p.dll" (array() As Long, ByVal nValue As Long) As Integer
  421. Declare Function cSetS Lib "t2win32p.dll" (array() As Single, ByVal nValue As Single) As Integer
  422. Declare Function cSortD Lib "t2win32p.dll" (array() As Double) As Integer
  423. Declare Function cSortI Lib "t2win32p.dll" (array() As Integer) As Integer
  424. Declare Function cSortL Lib "t2win32p.dll" (array() As Long) As Integer
  425. Declare Function cSortS Lib "t2win32p.dll" (array() As Single) As Integer
  426. Declare Function cSumD Lib "t2win32p.dll" (array() As Double) As Double
  427. Declare Function cSumI Lib "t2win32p.dll" (array() As Integer) As Double
  428. Declare Function cSumL Lib "t2win32p.dll" (array() As Long) As Double
  429. Declare Function cSumS Lib "t2win32p.dll" (array() As Single) As Double
  430.  
  431. ' ieeenum
  432.  
  433. Declare Function cCVB Lib "t2win32p.dll" (Value As String) As Byte
  434. Declare Function cCVC Lib "t2win32p.dll" (Value As String) As Currency
  435. Declare Function cCVD Lib "t2win32p.dll" (Value As String) As Double
  436. Declare Function cCVI Lib "t2win32p.dll" (Value As String) As Integer
  437. Declare Function cCVL Lib "t2win32p.dll" (Value As String) As Long
  438. Declare Function cCVS Lib "t2win32p.dll" (Value As String) As Single
  439. Declare Function cMKB Lib "t2win32p.dll" (ByVal Value As Byte) As String
  440. Declare Function cMKC Lib "t2win32p.dll" (ByVal Value As Currency) As String
  441. Declare Function cMKD Lib "t2win32p.dll" (ByVal Value As Double) As String
  442. Declare Function cMKI Lib "t2win32p.dll" (ByVal Value As Integer) As String
  443. Declare Function cMKL Lib "t2win32p.dll" (ByVal Value As Long) As String
  444. Declare Function cMKN Lib "t2win32p.dll" (ByVal Value As String) As String
  445. Declare Function cMKS Lib "t2win32p.dll" (ByVal Value As Single) As String
  446.  
  447. ' disk array
  448.  
  449. '  structure for disk array
  450. Type tagDISKARRAY
  451.    daSize            As Integer           'size of the type'd
  452.    signature         As String * 7        'signature
  453.    nFilename         As String * 128      'name of the file
  454.    nType             As Integer           'variable type
  455.    nRows             As Long              'number of rows
  456.    nCols             As Long              'number of cols
  457.    nSheets           As Long              'number of sheets
  458.    rHandle           As Long              'returned handle for use with other functions
  459.    rElementSize      As Long              'returned size of a element
  460.    rFileSize         As Long              'returned size of the file
  461.    rParts            As Long              'returned total part
  462.    rRemain           As Long              'returned size of the remain part
  463.    rSheetSize        As Long              'size of a sheet
  464.    rOffset1          As Long              'returned offset 1
  465.    rOffset2          As Long              'returned offset 2
  466.    rTime             As Long              'time for the last correct transaction
  467.    nIsTyped          As Integer           'is nType a type'd variable
  468.    Dummy             As String * 7        'reserved for future use
  469. End Type
  470.  
  471. '  definition for variable type in DISK ARRAY
  472. Public Const DA_TYPE = 0
  473. Public Const DA_BYTE = -1
  474. Public Const DA_INTEGER = -2
  475. Public Const DA_LONG = -3
  476. Public Const DA_SINGLE = -4
  477. Public Const DA_DOUBLE = -5
  478. Public Const DA_CURRENCY = -6
  479.  
  480. '  definition for error type in DISK ARRAY
  481. Public Const DA_NO_ERROR = True
  482. Public Const DA_EMPTY_FILENAME = 1
  483. Public Const DA_BAD_FILENAME = 2
  484. Public Const DA_CAN_KILL_FILE = 3
  485. Public Const DA_CAN_NOT_OPEN_FILE = 4
  486. Public Const DA_FILE_NOT_FOUND = 5
  487. Public Const DA_BAD_TYPE = 6
  488. Public Const DA_BAD_ROWS = 7
  489. Public Const DA_BAD_COLS = 8
  490. Public Const DA_BAD_SHEETS = 9
  491. Public Const DA_CAN_NOT_WRITE_HEADER = 10
  492. Public Const DA_CAN_NOT_WRITE_PART = 11
  493. Public Const DA_CAN_NOT_WRITE_REMAIN = 12
  494. Public Const DA_CAN_NOT_READ_HEADER = 13
  495. Public Const DA_HEADER_SIZE = 14
  496. Public Const DA_BAD_SIGNATURE = 15
  497. Public Const DA_FILE_SIZE_MISMATCH = 16
  498. Public Const DA_CAN_NOT_SEEK = 17
  499. Public Const DA_INVALID_HANDLE = 18
  500. Public Const DA_CAN_NOT_READ_PART = 19
  501. Public Const DA_CAN_NOT_READ_REMAIN = 20
  502.  
  503. Declare Function cDAClear Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY) As Integer
  504. Declare Function cDAClearCol Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  505. Declare Function cDAClearRow Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  506. Declare Function cDAClearSheet Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal sheet As Long) As Integer
  507. Declare Sub cDAClose Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal DeleteFile As Integer)
  508. Declare Function cDACreate Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  509. Declare Function cDAGet Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  510. Declare Sub cDAGetType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  511. Declare Sub cDAPut Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  512. Declare Sub cDAPutType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  513. Declare Sub cDArGet Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  514. Declare Sub cDArGetType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  515. Declare Sub cDArPut Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant)
  516. Declare Sub cDArPutType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any)
  517. Declare Function cDAsClearCol Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long) As Integer
  518. Declare Function cDAsClearRow Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long) As Integer
  519. Declare Sub cDAsGet Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  520. Declare Sub cDAsGetType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  521. Declare Sub cDAsPut Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  522. Declare Sub cDAsPutType Lib "t2win32p.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  523.  
  524. ' huge memory array
  525.  
  526. '  structure for huge memory array
  527. Type tagHMA
  528.    daSize            As Integer           'size of the type'd
  529.    nType             As Integer           'variable type
  530.    nRows             As Long              'number of rows
  531.    nCols             As Long              'number of cols
  532.    nSheets           As Long              'number of sheets
  533.    rHandle           As Long              'returned handle for use with other functions
  534.    rElementSize      As Long              'returned size of a element
  535.    rMemorySize       As Long              'returned size of the memory used
  536.    rParts            As Long              'returned total part
  537.    rRemain           As Long              'returned size of the remain part
  538.    rSheetSize        As Long              'size of a sheet
  539.    rOffset           As Long              'returned offset
  540.    nIsTyped          As Integer           'is nType a type'd variable
  541.    Dummy             As String * 20       'reserved for future use
  542. End Type
  543.  
  544. '  definition for variable type in HUGE MEMORY ARRAY
  545. Public Const HMA_TYPE = 0
  546. Public Const HMA_BYTE = -1
  547. Public Const HMA_INTEGER = -2
  548. Public Const HMA_LONG = -3
  549. Public Const HMA_SINGLE = -4
  550. Public Const HMA_DOUBLE = -5
  551. Public Const HMA_CURRENCY = -6
  552.  
  553. '  definition for error type in HUGE MEMORY ARRAY
  554. Public Const HMA_NO_ERROR = True
  555. Public Const HMA_NO_MEMORY = 1
  556. Public Const HMA_BAD_TYPE = 2
  557. Public Const HMA_BAD_ROWS = 3
  558. Public Const HMA_BAD_COLS = 4
  559. Public Const HMA_BAD_SHEETS = 5
  560. Public Const HMA_INVALID_HANDLE = 6
  561.  
  562. Declare Function cHMAClear Lib "t2win32p.dll" (HMA As tagHMA) As Integer
  563. Declare Function cHMAClearCol Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long, ByVal sheet As Long) As Integer
  564. Declare Function cHMAClearRow Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal sheet As Long) As Integer
  565. Declare Function cHMAClearSheet Lib "t2win32p.dll" (HMA As tagHMA, ByVal sheet As Long) As Integer
  566. Declare Function cHMACreate Lib "t2win32p.dll" (HMA As tagHMA) As Integer
  567. Declare Function cHMAFree Lib "t2win32p.dll" (HMA As tagHMA) As Integer
  568. Declare Function cHMAGet Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  569. Declare Sub cHMAGetType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  570. Declare Sub cHMAPut Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  571. Declare Sub cHMAPutType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  572. Declare Sub cHMArGet Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  573. Declare Sub cHMArGetType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  574. Declare Sub cHMArPut Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant)
  575. Declare Sub cHMArPutType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any)
  576. Declare Sub cHMAsGet Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  577. Declare Sub cHMAsGetType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  578. Declare Sub cHMAsPut Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  579. Declare Sub cHMAsPutType Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any)
  580. Declare Function cHMAsClearCol Lib "t2win32p.dll" (HMA As tagHMA, ByVal Col As Long) As Integer
  581. Declare Function cHMAsClearRow Lib "t2win32p.dll" (HMA As tagHMA, ByVal Row As Long) As Integer
  582. Declare Function cHMAOnDisk Lib "t2win32p.dll" (HMA As tagHMA, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  583.  
  584. '  structure for multiple disk array
  585. Type tagMULTIPLEDISKARRAY
  586.    daSize               As Integer        'size of the structure
  587.    signature            As String * 7     'signature
  588.    nFilename            As String * 128   'name of the file
  589.    nType(1 To 20)       As Integer        'standard variable type (for 20 arrays)
  590.    nIsTyped(1 To 20)    As Integer        'is a type'd (for 20 arrays)
  591.    nRows(1 To 20)       As Long           'number of rows (for 20 arrays)
  592.    nCols(1 To 20)       As Long           'number of cols (for 20 arrays)
  593.    nSheets(1 To 20)     As Long           'number of sheets (for 20 arrays)
  594.    rHandle              As Long           'returned handle for use with other functions
  595.    rFileSize            As Long           'returned size of the file
  596.    rElementSz(1 To 20)  As Long           'returned size of a element (for 20 arrays)
  597.    rSheetSz(1 To 20)    As Long           'size of a sheet (for 20 arrays)
  598.    rOffsetPos(1 To 20)  As Long           'position of each array in the sFile (for 20 arrays)
  599.    rOffset1             As Long           'returned offset 1
  600.    rOffset2             As Long           'returned offset 2
  601.    rTime                As Long           'time for the last correct transaction
  602.    Dummy                As String * 28    'reserved for future use
  603. End Type
  604.  
  605. '  definition for variable type in HUGE MEMORY ARRAY
  606. Public Const MDA_TYPE = 0
  607. Public Const MDA_BYTE = -1
  608. Public Const MDA_INTEGER = -2
  609. Public Const MDA_LONG = -3
  610. Public Const MDA_SINGLE = -4
  611. Public Const MDA_DOUBLE = -5
  612. Public Const MDA_CURRENCY = -6
  613.  
  614. '  definition for error type in MULTIPLE DISK ARRAY
  615. Public Const MDA_NO_ERROR = -1
  616. Public Const MDA_EMPTY_FileName = 1
  617. Public Const MDA_BAD_FileName = 2
  618. Public Const MDA_CAN_KILL_FILE = 3
  619. Public Const MDA_CAN_NOT_OPEN_FILE = 4
  620. Public Const MDA_FILE_NOT_FOUND = 5
  621. Public Const MDA_BAD_TYPE = 6
  622. Public Const MDA_BAD_ROWS = 7
  623. Public Const MDA_BAD_COLS = 8
  624. Public Const MDA_BAD_SHEETS = 9
  625. Public Const MDA_CAN_NOT_WRITE_HEADER = 10
  626. Public Const MDA_CAN_NOT_WRITE_PART = 11
  627. Public Const MDA_CAN_NOT_WRITE_REMAIN = 12
  628. Public Const MDA_CAN_NOT_READ_HEADER = 13
  629. Public Const MDA_HEADER_SIZE = 14
  630. Public Const MDA_BAD_SIGNATURE = 15
  631. Public Const MDA_FILE_SIZE_MISMATCH = 16
  632. Public Const MDA_CAN_NOT_SEEK = 17
  633. Public Const MDA_INVALID_HANDLE = 18
  634. Public Const MDA_CAN_NOT_READ_PART = 19
  635. Public Const MDA_CAN_NOT_READ_REMAIN = 20
  636. Public Const MDA_BAD_MULTIPLE_ARRAY = 21
  637.  
  638. Declare Function cMDAClear Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY) As Integer
  639. Declare Function cMDAClearCol Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer
  640. Declare Function cMDAClearRow Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer
  641. Declare Function cMDAClearSheet Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal sheet As Long) As Integer
  642. Declare Sub cMDAClose Lib "t2win32p.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal DeleteFile As Integer)
  643. Declare Function cMDACreate Lib "t2win32p.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal CreateOrUse As Integer) As Integer
  644. Declare Function cMDAGet Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant
  645. Declare Sub cMDAGetType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  646. Declare Sub cMDAPut Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant)
  647. Declare Sub cMDAPutType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any)
  648. Declare Sub cMDArGet Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  649. Declare Sub cMDArGetType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  650. Declare Sub cMDArPut Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant)
  651. Declare Sub cMDArPutType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any)
  652. Declare Function cMDAsClearCol Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long) As Integer
  653. Declare Function cMDAsClearRow Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long) As Integer
  654. Declare Sub cMDAsGet Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  655. Declare Sub cMDAsGetType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  656. Declare Sub cMDAsPut Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant)
  657. Declare Sub cMDAsPutType Lib "t2win32p.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any)
  658.  
  659. ' serialization
  660.  
  661. '  structure for serialization
  662. Type tagSERIALDATA
  663.    Description1      As String * 52       'serialization description 1
  664.    Description2      As String * 52       'serialization description 2
  665.    Number            As Long              'serialization number
  666.    Dummy             As String * 52       'reserved for future use
  667. End Type
  668.  
  669. '  definition for error type in SERIAL DATA
  670. Public Const SD_SERIAL_NOT_FOUND = 1
  671. Public Const SD_CAN_NOT_OPEN_FILE = 2
  672.  
  673. Declare Function cIsSerial Lib "t2win32p.dll" (ByVal sFile As String) As Integer
  674. Declare Function cSerialGet Lib "t2win32p.dll" (ByVal sFile As String, SERIALDATA As tagSERIALDATA) As Integer
  675. Declare Function cSerialInc Lib "t2win32p.dll" (ByVal sFile As String, ByVal Increment As Long) As Integer
  676. Declare Function cSerialPut Lib "t2win32p.dll" (ByVal sFile As String, SERIALDATA As tagSERIALDATA) As Integer
  677. Declare Function cSerialRmv Lib "t2win32p.dll" (ByVal sFile As String) As Integer
  678.  
  679. ' language control
  680.  
  681. '  definition for properties for language management
  682. Public Const RS_CAPTION = 1
  683. Public Const RS_TEXT = 2
  684. Public Const RS_DATAFIELD = 4
  685. Public Const RS_DATASOURCE = 8
  686. Public Const RS_TAG = 16
  687. Public Const RS_MENU = 32
  688. Public Const RS_ALL = 255
  689.  
  690. Declare Function cReadCtlLanguage Lib "t2win32p.dll" (ByVal Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  691. Declare Function cReadCtlLanguageExt Lib "t2win32p.dll" (ByVal Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  692. Declare Function cSaveCtlLanguage Lib "t2win32p.dll" (ByVal Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  693. Declare Function cSaveCtlLanguageExt Lib "t2win32p.dll" (ByVal Frm As Form, ByVal Property As Integer, ByVal FileLanguage As String) As Integer
  694.  
  695. ' interest rate
  696. Declare Function cAtoF Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  697. Declare Function cAtoFC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  698. Declare Function cAtoP Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  699. Declare Function cAtoPC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  700. Declare Function cFtoA Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  701. Declare Function cFtoAC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  702. Declare Function cFtoP Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  703. Declare Function cFtoPC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  704. Declare Function cPtoA Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  705. Declare Function cPtoAC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  706. Declare Function cPtoF Lib "t2win32p.dll" (ByVal Interest As Double, ByVal n As Integer) As Double
  707. Declare Function cPtoFC Lib "t2win32p.dll" (ByVal Rates As Double, ByVal n As Integer) As Double
  708.  
  709. ' matrix
  710.  
  711. '  definition for matrix fill
  712. Public Const MATRIX_ZERO = 0
  713. Public Const MATRIX_UNIT = 1
  714.  
  715. Declare Sub cMatrixAdd Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  716. Declare Function cMatrixCoFactor Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  717. Declare Function cMatrixCompare Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  718. Declare Sub cMatrixCopy Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  719. Declare Function cMatrixDet Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double) As Double
  720. Declare Function cMatrixFill Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal nInit As Integer) As Integer
  721. Declare Function cMatrixInv Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  722. Declare Function cMatrixMinor Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double
  723. Declare Sub cMatrixMul Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  724. Declare Sub cMatrixSub Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double)
  725. Declare Function cMatrixSymToeplitz Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer
  726. Declare Sub cMatrixTranspose Lib "t2win32p.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double)
  727.  
  728. ' is
  729.  
  730. Declare Function cIsAlnum Lib "t2win32p.dll" (Txt As String) As Integer
  731. Declare Function cIsAlpha Lib "t2win32p.dll" (Txt As String) As Integer
  732. Declare Function cIsAscii Lib "t2win32p.dll" (Txt As String) As Integer
  733. Declare Function cIsBalance Lib "t2win32p.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  734. Declare Function cIsCsym Lib "t2win32p.dll" (Txt As String) As Integer
  735. Declare Function cIsCsymf Lib "t2win32p.dll" (Txt As String) As Integer
  736. Declare Function cIsDate Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  737. Declare Function cIsDigit Lib "t2win32p.dll" (Txt As String) As Integer
  738. Declare Function cIsFileArchive Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  739. Declare Function cIsFileEmpty Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  740. Declare Function cIsFileFlag Lib "t2win32p.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  741. Declare Function cIsFileHidden Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  742. Declare Function cIsFileNormal Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  743. Declare Function cIsFileReadOnly Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  744. Declare Function cIsFileSubDir Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  745. Declare Function cIsFileSystem Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  746. Declare Function cIsFileCompressed Lib "t2win32p.dll" (ByVal nFilename As String) As Integer
  747. Declare Function cIsFormEnabled Lib "t2win32p.dll" (ByVal hWnd As Long) As Integer
  748. Declare Function cIsHour Lib "t2win32p.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  749. Declare Function cIsISBN Lib "t2win32p.dll" (Txt As String) As Integer
  750. Declare Function cIsLeapYear Lib "t2win32p.dll" (ByVal nYear As Integer) As Integer
  751. Declare Function cIsLower Lib "t2win32p.dll" (Txt As String) As Integer
  752. Declare Function cIsPalindrome Lib "t2win32p.dll" (Txt As String) As Integer
  753. Declare Function cIsPunct Lib "t2win32p.dll" (Txt As String) As Integer
  754. Declare Function cIsSpace Lib "t2win32p.dll" (Txt As String) As Integer
  755. Declare Function cIsUpper Lib "t2win32p.dll" (Txt As String) As Integer
  756. Declare Function cIsXdigit Lib "t2win32p.dll" (Txt As String) As Integer
  757.  
  758. ' encrypt/decrypt
  759.  
  760. '  definition for encrypt/decrypt
  761. Public Const ENCRYPT_LEVEL_0 = 0
  762. Public Const ENCRYPT_LEVEL_1 = 1
  763. Public Const ENCRYPT_LEVEL_2 = 2
  764. Public Const ENCRYPT_LEVEL_3 = 3
  765. Public Const ENCRYPT_LEVEL_4 = 4
  766.  
  767. Declare Function cDecrypt Lib "t2win32p.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  768. Declare Function cEncrypt Lib "t2win32p.dll" (Txt As String, Password As String, ByVal level As Integer) As String
  769. Declare Function cFileDecrypt Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  770. Declare Function cFileEncrypt Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long
  771.  
  772. ' hicrypt
  773.  
  774. Declare Function cCrypt Lib "t2win32p.dll" (Txt As String, ByVal Password As String) As String
  775. Declare Function cFileCrypt Lib "t2win32p.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Password As String) As Long
  776.  
  777. ' crc32
  778.  
  779. '  definition for crc32
  780. Public Const OPEN_MODE_BINARY = 0
  781. Public Const OPEN_MODE_TEXT = 1
  782.  
  783. Declare Function cFileCRC32 Lib "t2win32p.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  784. Declare Function cStringCRC32 Lib "t2win32p.dll" (Txt As String) As Long
  785.  
  786. ' string
  787.  
  788. '  definition for error type for PATTERNMATCHEXT
  789. Public Const MATCH_HEXA = 17
  790. Public Const MATCH_INTERNAL_ERROR = 16
  791. Public Const MATCH_PATTERN = 15
  792. Public Const MATCH_LITERAL = 14
  793. Public Const MATCH_RANGE = 13
  794. Public Const MATCH_ABORT = 12
  795. Public Const MATCH_END = 11
  796. Public Const MATCH_VALID = -1
  797.  
  798. Public Const PATTERN_VALID = 0
  799. Public Const PATTERN_INVALID = 1
  800. Public Const PATTERN_ESC = 2
  801. Public Const PATTERN_RANGE = 3
  802. Public Const PATTERN_CLOSE = 4
  803. Public Const PATTERN_EMPTY = 5
  804. Public Const PATTERN_INTERNAL_ERROR = 6
  805. Public Const PATTERN_HEXA = 7
  806.  
  807. ' definition for PROPERNAME2
  808. Public Const PN_UPPERCASE = 1
  809. Public Const PN_PUNCTUATION = 2
  810. Public Const PN_KEEP_ORIGINAL = 4
  811. Public Const PN_ONLY_LEADER_SPACE = 8
  812.  
  813. Declare Function cAddDigit Lib "t2win32p.dll" (Txt As String) As Integer
  814. Declare Function cAlign Lib "t2win32p.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Long) As String
  815. Declare Function cAndToken Lib "t2win32p.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  816. Declare Function cAndTokenIn Lib "t2win32p.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  817. Declare Function cArabicToRoman Lib "t2win32p.dll" (Var As Variant) As String
  818. Declare Function cBlockCharFromLeft Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  819. Declare Function cBlockCharFromRight Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  820. Declare Sub cChangeChars Lib "t2win32p.dll" (Txt As String, CharSet As String, NewCharSet As String)
  821. Declare Sub cChangeCharsUntil Lib "t2win32p.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String)
  822. Declare Function cCheckChars Lib "t2win32p.dll" (Txt As String, CharSet As String) As Integer
  823. Declare Function cCheckNumericity Lib "t2win32p.dll" (Txt As String) As Integer
  824. Declare Sub cCnvASCIItoEBCDIC Lib "t2win32p.dll" (Txt As String)
  825. Declare Sub cCnvEBCDICtoASCII Lib "t2win32p.dll" (Txt As String)
  826. Declare Function cCompact Lib "t2win32p.dll" (Txt As String) As String
  827. Declare Function cCompress Lib "t2win32p.dll" (Txt As String) As String
  828. Declare Function cCompressTab Lib "t2win32p.dll" (Txt As String, ByVal nTab As Long) As String
  829. Declare Function cCount Lib "t2win32p.dll" (Txt As String, Separator As String) As Integer
  830. Declare Function cCplAlpha Lib "t2win32p.dll" (Txt As String) As String
  831. Declare Function cCplDigit Lib "t2win32p.dll" (Txt As String) As String
  832. Declare Function cCreateAndFill Lib "t2win32p.dll" (ByVal Length As Long, Txt As String) As String
  833. Declare Function cExpandTab Lib "t2win32p.dll" (Txt As String, ByVal nTab As Long) As String
  834. Declare Sub cFill Lib "t2win32p.dll" (Txt As String, Fill As String)
  835. Declare Function cFilterBlocks Lib "t2win32p.dll" (Txt As String, Delimitor As String) As String
  836. Declare Function cFilterChars Lib "t2win32p.dll" (Txt As String, CharSet As String) As String
  837. Declare Function cFilterFirstChars Lib "t2win32p.dll" (Txt As String, CharSet As String) As String
  838. Declare Function cFilterNotChars Lib "t2win32p.dll" (Txt As String, CharSet As String) As String
  839. Declare Function cFromHexa Lib "t2win32p.dll" (Text As String) As String
  840. Declare Function cFromZ9 Lib "t2win32p.dll" (Text As String) As String
  841. Declare Function cGet Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  842. Declare Function cGetBlock Lib "t2win32p.dll" (Txt As String, ByVal Position As Long, ByVal Length As Long) As String
  843. Declare Function cGetIn Lib "t2win32p.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  844. Declare Function cGetInPart Lib "t2win32p.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  845. Declare Function cGetInPartR Lib "t2win32p.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  846. Declare Function cGetInR Lib "t2win32p.dll" (Txt As String, Separator As String, ByVal Position As Long) As String
  847. Declare Function cH2I Lib "t2win32p.dll" (ByVal Txt As String) As Integer
  848. Declare Function cH2L Lib "t2win32p.dll" (ByVal Txt As String) As Long
  849. Declare Function cInsertBlocks Lib "t2win32p.dll" (Txt As String, Insert As String) As String
  850. Declare Function cInsertBlocksBy Lib "t2win32p.dll" (Txt As String, Insert As String, Delimitor As String) As String
  851. Declare Function cInsertBlocksExt Lib "t2win32p.dll" (Txt As String, Insert As String) As String
  852. Declare Function cInsertByMask Lib "t2win32p.dll" (Txt As String, Mask As String, Insert As String) As String
  853. Declare Function cInsertChars Lib "t2win32p.dll" (Txt As String, ByVal Position As Long, Insert As String) As String
  854. Declare Function cInStr Lib "t2win32p.dll" (ByVal StartPosition As Long, ByVal Txt As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  855. Declare Function cLrc Lib "t2win32p.dll" (Txt As String) As String
  856. Declare Function cMixChars Lib "t2win32p.dll" (Txt As String) As String
  857. Declare Function cMorse Lib "t2win32p.dll" (ByVal morse As String) As String
  858. Declare Function cNumDigit Lib "t2win32p.dll" (Txt As String) As Integer
  859. Declare Function cOneCharFromLeft Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  860. Declare Function cOneCharFromRight Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  861. Declare Function cOrToken Lib "t2win32p.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  862. Declare Function cOrTokenIn Lib "t2win32p.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  863. Declare Function cPatternMatch Lib "t2win32p.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  864. Declare Function cPatternExtMatch Lib "t2win32p.dll" (ByVal Txt As String, ByVal pattern As String) As Integer
  865. Declare Function cProperName Lib "t2win32p.dll" (Txt As String) As String
  866. Declare Function cProperName2 Lib "t2win32p.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  867. Declare Function cRemoveBlockChar Lib "t2win32p.dll" (Txt As String, ByVal Position As Long, ByVal Length As Long) As String
  868. Declare Function cRemoveOneChar Lib "t2win32p.dll" (Txt As String, ByVal Position As Long) As String
  869. Declare Function cResizeString Lib "t2win32p.dll" (Txt As String, ByVal NewLength As Long) As String
  870. Declare Function cResizeStringAndFill Lib "t2win32p.dll" (Txt As String, ByVal NewLength As Long, Fill As String) As String
  871. Declare Function cReverse Lib "t2win32p.dll" (Txt As String) As String
  872. Declare Function cReverseSortStr Lib "t2win32p.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  873. Declare Function cRomanToArabic Lib "t2win32p.dll" (Txt As String) As Variant
  874. Declare Function cScrollL Lib "t2win32p.dll" (Txt As String) As String
  875. Declare Function cScrollR Lib "t2win32p.dll" (Txt As String) As String
  876. Declare Sub cSetDefaultSeparator Lib "t2win32p.dll" (Separator As String)
  877. Declare Function cSortStr Lib "t2win32p.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  878. Declare Function cStringSAR Lib "t2win32p.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String
  879. Declare Function cToHexa Lib "t2win32p.dll" (Text As String) As String
  880. Declare Function cTokenIn Lib "t2win32p.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  881. Declare Function cToZ9 Lib "t2win32p.dll" (Text As String) As String
  882. Declare Function cUncompact Lib "t2win32p.dll" (Txt As String) As String
  883.  
  884. ' random
  885.  
  886. Declare Sub cRndInit Lib "t2win32p.dll" (ByVal nRnd As Long)
  887. Declare Function cRnd Lib "t2win32p.dll" () As Double
  888. Declare Function cRndD Lib "t2win32p.dll" () As Double
  889. Declare Function cRndI Lib "t2win32p.dll" () As Integer
  890. Declare Function cRndL Lib "t2win32p.dll" () As Long
  891. Declare Function cRndS Lib "t2win32p.dll" () As Single
  892.  
  893. ' swap
  894.  
  895. Declare Sub cSwapB Lib "t2win32p.dll" (swap1 As Byte, swap2 As Byte)
  896. Declare Sub cSwapD Lib "t2win32p.dll" (swap1 As Double, swap2 As Double)
  897. Declare Sub cSwapI Lib "t2win32p.dll" (swap1 As Integer, swap2 As Integer)
  898. Declare Sub cSwapL Lib "t2win32p.dll" (swap1 As Long, swap2 As Long)
  899. Declare Sub cSwapS Lib "t2win32p.dll" (swap1 As Single, swap2 As Single)
  900. Declare Sub cSwapStr Lib "t2win32p.dll" (swap1 As String, swap2 As String)
  901.  
  902. ' type
  903.  
  904. Declare Function cCompareTypeString Lib "t2win32p.dll" Alias "cTypesCompare" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) As Integer
  905. Declare Function cCompareStringType Lib "t2win32p.dll" Alias "cTypesCompare" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) As Integer
  906. Declare Sub cStringToType Lib "t2win32p.dll" Alias "cTypesCopy" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer)
  907. Declare Sub cTypeClear Lib "t2win32p.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer)
  908. Declare Function cTypeMid Lib "t2win32p.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String
  909. Declare Function cTypesCompare Lib "t2win32p.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer
  910. Declare Sub cTypesCopy Lib "t2win32p.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  911. Declare Function cTypeTransfert Lib "t2win32p.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String
  912. Declare Sub cTypeToString Lib "t2win32p.dll" Alias "cTypesCopy" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer)
  913.  
  914. ' miscelleanous
  915.  
  916. Declare Function cMax Lib "t2win32p.dll" (Var1 As Variant, Var2 As Variant) As Variant
  917. Declare Function cMin Lib "t2win32p.dll" (Var1 As Variant, Var2 As Variant) As Variant
  918. Declare Sub cIncrI Lib "t2win32p.dll" (Value As Integer)
  919. Declare Sub cIncrL Lib "t2win32p.dll" (Value As Long)
  920. Declare Sub cDecrI Lib "t2win32p.dll" (Value As Integer)
  921. Declare Sub cDecrL Lib "t2win32p.dll" (Value As Long)
  922. Declare Function cSpellMoney Lib "t2win32p.dll" (ByVal Value As Double, ByVal Units As String, ByVal Cents As String) As String
  923. Declare Function cFraction Lib "t2win32p.dll" (ByVal nValue As Double, nNumerator As Double, nDenominator As Double) As Double
  924. Declare Function cCombination Lib "t2win32p.dll" (ByVal nItems As Integer, ByVal mTimes As Integer) As Double
  925. Declare Function cSgn Lib "t2win32p.dll" (ByVal Value As Integer) As Integer
  926. Declare Function cBetween Lib "t2win32p.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  927. Declare Function cGetPid Lib "t2win32p.dll" () As Integer
  928. Declare Function cBaseConversion Lib "t2win32p.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String
  929.  
  930. ' windows
  931.  
  932. '  definition for win.ini section
  933. Public Const GET_TIME_SEPARATOR = 1
  934. Public Const GET_DATE_SEPARATOR = 2
  935. Public Const GET_TIME_FORMAT = 3
  936. Public Const GET_DATE_FORMAT = 4
  937. Public Const GET_CURRENCY = 5
  938. Public Const GET_LANGUAGE = 6
  939. Public Const GET_COUNTRY = 7
  940. Public Const GET_COUNTRY_CODE = 8
  941. Public Const GET_LIST_SEPARATOR = 9
  942. Public Const GET_DEFAULT_PRINTER = 10
  943.  
  944. Declare Sub cArrangeDesktopIcons Lib "t2win32p.dll" ()
  945. Declare Sub cCenterWindow Lib "t2win32p.dll" (ByVal hWnd As Long)
  946. Declare Function cEXEnameActiveWindow Lib "t2win32p.dll" () As String
  947. Declare Function cEXEnameWindow Lib "t2win32p.dll" (ByVal hWnd As Long) As String
  948. Declare Function cEXEnameTask Lib "t2win32p.dll" (ByVal nFilename As String) As String
  949. Declare Function cExitWindowsAndExecute Lib "t2win32p.dll" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer
  950. Declare Function cFindFileInEnv Lib "t2win32p.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer
  951. Declare Function cFindFileInPath Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  952. Declare Function cGetClassName Lib "t2win32p.dll" (ByVal hWnd As Long) As String
  953. Declare Function cGetCountry Lib "t2win32p.dll" () As String
  954. Declare Function cGetCountryCode Lib "t2win32p.dll" () As String
  955. Declare Function cGetCurrency Lib "t2win32p.dll" () As String
  956. Declare Function cGetCurrentDrive Lib "t2win32p.dll" () As String
  957. Declare Function cGetDateFormat Lib "t2win32p.dll" () As String
  958. Declare Function cGetDateSeparator Lib "t2win32p.dll" () As String
  959. Declare Function cGetDefaultCurrentDir Lib "t2win32p.dll" () As String
  960. Declare Function cGetDefaultPrinter Lib "t2win32p.dll" () As String
  961. Declare Function cGetDevices Lib "t2win32p.dll" () As String
  962. Declare Function cGetDriveCurrentDir Lib "t2win32p.dll" (ByVal lpDrive As String) As String
  963. Declare Function cGetFullNameInEnv Lib "t2win32p.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String
  964. Declare Function cGetFullNameInPath Lib "t2win32p.dll" (ByVal lpFilename As String) As String
  965. Declare Function cGetHourFormat Lib "t2win32p.dll" () As String
  966. Declare Function cGetIni Lib "t2win32p.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  967. Declare Function cGetLanguage Lib "t2win32p.dll" () As String
  968. Declare Function cGetListSeparator Lib "t2win32p.dll" () As String
  969. Declare Function cGetSystemDirectory Lib "t2win32p.dll" () As String
  970. Declare Function cGetTimeSeparator Lib "t2win32p.dll" () As String
  971. Declare Function cGetWindowsDirectory Lib "t2win32p.dll" () As String
  972. Declare Function cGetWinINI Lib "t2win32p.dll" (ByVal Info As Integer) As String
  973. Declare Function cGetWinSection Lib "t2win32p.dll" (ByVal Section As String) As String
  974. Declare Sub cPutIni Lib "t2win32p.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String)
  975. Declare Function cRebootSystem Lib "t2win32p.dll" () As Integer
  976. Declare Function cRestartWindows Lib "t2win32p.dll" () As Integer
  977. Declare Function cSetHandleCount Lib "t2win32p.dll" (ByVal nHandle As Integer) As Integer
  978. Declare Sub cShowWindow Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Method As Integer, ByVal interval As Integer)
  979. Declare Function cGetSectionItems Lib "t2win32p.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String
  980. Declare Function cTaskBarAddIcon Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal hIcon As Long, ByVal lpszTip As String) As Integer
  981. Declare Function cTaskBarDeleteIcon Lib "t2win32p.dll" (ByVal hWnd As Long) As Integer
  982. Declare Function cTaskBarModifyIcon Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal hIcon As Long, ByVal lpszTip As String) As Integer
  983.  
  984. ' list/combo box
  985.  
  986. Public Const DDL_READWRITE = &H0
  987. Public Const DDL_READONLY = &H1
  988. Public Const DDL_HIDDEN = &H2
  989. Public Const DDL_SYSTEM = &H4
  990. Public Const DDL_DIRECTORY = &H10
  991. Public Const DDL_ARCHIVE = &H20
  992. Public Const DDL_POSTMSGS = &H2000
  993. Public Const DDL_DRIVES = &H4000
  994. Public Const DDL_EXCLUSIVE = &H8000
  995.  
  996. Declare Function cArrayToComboBox Lib "t2win32p.dll" (ByVal hWnd As Long, array() As String) As Integer
  997. Declare Function cArrayToListBox Lib "t2win32p.dll" (ByVal hWnd As Long, array() As String) As Integer
  998. Declare Function cFileToComboBox Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal nFile As String) As Integer
  999. Declare Function cFileToListBox Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal nFile As String) As Integer
  1000. Declare Function cListSetTabs Lib "t2win32p.dll" (ByVal hWnd As Long, TabArray() As Long) As Integer
  1001. Declare Function cListFiles Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Attributes As Long, ByVal FilePathMaask As String) As Integer
  1002. Declare Function cComboFiles Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Attributes As Long, ByVal FilePathMaask As String) As Integer
  1003. Declare Function cListSearchFile Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal StartPath As String, ByVal FileMask As String) As Long
  1004. Declare Function cComboSearchFile Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal StartPath As String, ByVal FileMask As String) As Long
  1005.  
  1006. ' mdtkfv
  1007.  
  1008. '  definition for sFile version information
  1009. Public Const VER_VERSION_PRODUCT = -1
  1010. Public Const VER_VERSION_FILE = 0
  1011. Public Const VER_COMPANY_NAME = 1
  1012. Public Const VER_FILE_DESCRIPTION = 2
  1013. Public Const VER_FILE_VERSION = 3
  1014. Public Const VER_INTERNAL_NAME = 4
  1015. Public Const VER_LEGAL_COPYRIGHT = 5
  1016. Public Const VER_LEGAL_TRADEMARKS = 6
  1017. Public Const VER_PRODUCT_NAME = 7
  1018. Public Const VER_PRODUCT_VERSION = 8
  1019.  
  1020. '  structure for sFile version information
  1021. Type tagFILEVERSIONINFO
  1022.    VersionProduct    As String
  1023.    VersionFile       As String
  1024.    CompanyName       As String
  1025.    FileDescription   As String
  1026.    FileVersion       As String
  1027.    InternalName      As String
  1028.    LegalCopyright    As String
  1029.    LegalTrademarks   As String
  1030.    Comments          As String
  1031.    ProductName       As String
  1032.    ProductVersion    As String
  1033. End Type
  1034.  
  1035. ' structure for modules
  1036. Type tagMODULEENTRY
  1037.    dwSize               As Long
  1038.    th32ModuleID         As Long
  1039.    th32ProcessID        As Long
  1040.    GlblcntUsage         As Long
  1041.    ProccntUsage         As Long
  1042.    modBaseAddr          As Byte
  1043.    modBaseSize          As Long
  1044.    hModule              As Long
  1045.    szModule             As String * 256
  1046.    szExePath            As String * 260
  1047. End Type
  1048.  
  1049. Type tagPROCESSENTRY
  1050.    dwSize               As Long
  1051.    cntUsage             As Long
  1052.    th32ProcessID        As Long
  1053.    th32DefaultHeapID    As Long
  1054.    th32ModuleID         As Long
  1055.    cntThreads           As Long
  1056.    th32ParentProcessID  As Long
  1057.    pcPriClassBase       As Long
  1058.    dwFlags              As Long
  1059.    szExeFile            As String * 260
  1060. End Type
  1061.  
  1062. Type tagTHREADENTRY
  1063.    dwSize               As Long
  1064.    cntUsage             As Long
  1065.    th32ThreadID         As Long
  1066.    th32OwnerProcessID   As Long
  1067.    tpBasePri            As Long
  1068.    tpDeltaPri           As Long
  1069.    dwFlags              As Long
  1070. End Type
  1071.  
  1072. Declare Sub cChangeTaskName Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Text As String)
  1073. Declare Function cGetFileVersion Lib "t2win32p.dll" (ByVal FileName As String, ByVal nFonction As Integer) As String
  1074. Declare Function cGetFileVersionInfo Lib "t2win32p.dll" (ByVal FileName As String, FILEVERSIONINFO As Any) As Integer
  1075. Declare Function cGetChangeTaskName Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Text As String) As String
  1076. Declare Function cGetTaskName Lib "t2win32p.dll" (ByVal hWnd As Long) As String
  1077. Declare Function cModule Lib "t2win32p.dll" (MODULEENTRY As tagMODULEENTRY, ByVal FirstNext As Integer) As Integer
  1078. Declare Function cProcess Lib "t2win32p.dll" (PROCESSENTRY As tagPROCESSENTRY, ByVal FirstNext As Integer) As Integer
  1079. Declare Function cThread Lib "t2win32p.dll" (THREADENTRY As tagTHREADENTRY, ByVal FirstNext As Integer) As Integer
  1080. Declare Function cWalkThruWindow Lib "t2win32p.dll" (Class As String, Caption As String, OwnerHwnd As Long, OwnerClass As String, OwnerCaption As String, ByVal FirstNext As Integer) As Long
  1081.  
  1082. ' date - time
  1083.  
  1084. Declare Function cIntoDate Lib "t2win32p.dll" (ByVal nDate As Long) As String
  1085. Declare Function cIntoDateFill Lib "t2win32p.dll" (ByVal nDate As Long) As String
  1086. Declare Function cIntoDateNull Lib "t2win32p.dll" (ByVal nDate As Long) As String
  1087. Declare Function cIntoFixHour Lib "t2win32p.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String
  1088. Declare Function cIntoHour Lib "t2win32p.dll" (Var As Variant) As String
  1089. Declare Function cIntoVarHour Lib "t2win32p.dll" (Var As Variant) As String
  1090. Declare Function cDayOfWeek Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  1091. Declare Function cDayOfYear Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  1092. Declare Function cDaysInMonth Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer
  1093. Declare Function cDateToScalar Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long
  1094. Declare Sub cScalarToDate Lib "t2win32p.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer)
  1095. Declare Sub cScalarToTime Lib "t2win32p.dll" (ByVal Scalar As Long, nHour As Integer, nMin As Integer, nSec As Integer)
  1096. Declare Function cTimeBetween Lib "t2win32p.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  1097. Declare Function cTimeToScalar Lib "t2win32p.dll" (ByVal nHour As Integer, ByVal nMin As Integer, ByVal nSec As Integer) As Long
  1098. Declare Function cWeekOfYear Lib "t2win32p.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  1099. Declare Function cCurrentTime Lib "t2win32p.dll" () As Integer
  1100. Declare Function cAddTime Lib "t2win32p.dll" (ByVal Hr As Integer) As Integer
  1101. Declare Function cAddTwoTimes Lib "t2win32p.dll" (ByVal Time1 As String, ByVal Time2 As String) As String
  1102. Declare Function cCheckTime Lib "t2win32p.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  1103. Declare Function cTrueBetween Lib "t2win32p.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  1104. Declare Function cHourTo Lib "t2win32p.dll" (Txt As String) As Variant
  1105. Declare Function cIntoBalance Lib "t2win32p.dll" (Var As Variant) As String
  1106. Declare Function cIntoBalanceFill Lib "t2win32p.dll" (Var As Variant) As String
  1107.  
  1108. ' process id
  1109.  
  1110. Declare Sub cPushID Lib "t2win32p.dll" (IDArray() As Integer, ByVal nID As Integer)
  1111. Declare Sub cPopID Lib "t2win32p.dll" (IDArray() As Integer, ByVal nID As Integer)
  1112. Declare Sub cPopLastID Lib "t2win32p.dll" (IDArray() As Integer)
  1113. Declare Function cGetID Lib "t2win32p.dll" (IDArray() As Integer, ByVal nPosition As Integer) As Integer
  1114. Declare Sub cClearID Lib "t2win32p.dll" (IDArray() As Integer)
  1115.  
  1116. ' sFile I/O, direct routines issued from C functionnalities
  1117.  
  1118. Declare Function cFopen Lib "t2win32p.dll" (ByVal sFile As String, ByVal Mode As String) As Long
  1119. Declare Function cFclose Lib "t2win32p.dll" (ByVal IOstream As Long) As Integer
  1120. Declare Function cFgetc Lib "t2win32p.dll" (ByVal IOstream As Long) As Integer
  1121. Declare Function cFputc Lib "t2win32p.dll" (ByVal char As Integer, ByVal IOstream As Long) As Integer
  1122. Declare Function cFputs Lib "t2win32p.dll" (ByVal Txt As String, ByVal IOstream As Long) As Integer
  1123. Declare Function cFgets Lib "t2win32p.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  1124. Declare Function cFwrite Lib "t2win32p.dll" (Txt As String, ByVal IOstream As Long) As Integer
  1125. Declare Function cFread Lib "t2win32p.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer
  1126. Declare Function cFcloseall Lib "t2win32p.dll" () As Integer
  1127. Declare Function cFflush Lib "t2win32p.dll" (ByVal IOstream As Long) As Integer
  1128. Declare Function cFflushall Lib "t2win32p.dll" () As Integer
  1129. Declare Function cFeof Lib "t2win32p.dll" (ByVal IOstream As Long) As Integer
  1130. Declare Function cFerror Lib "t2win32p.dll" (ByVal IOstream As Long) As Integer
  1131. Declare Sub cFclearerr Lib "t2win32p.dll" (ByVal IOstream As Long)
  1132. Declare Function cFseek Lib "t2win32p.dll" (ByVal IOstream As Long, ByVal offset As Long, ByVal origin As Integer) As Integer
  1133. Declare Function cFtell Lib "t2win32p.dll" (ByVal IOstream As Long) As Long
  1134. Declare Sub cFrewind Lib "t2win32p.dll" (ByVal IOstream As Long)
  1135. Declare Function cFProcessAsciiFile Lib "t2win32p.dll" (ByVal IOstream As Long, AsciiOffset() As Long) As Long
  1136. Declare Function cFGotoRecord Lib "t2win32p.dll" (ByVal IOstream As Long, AsciiOffset() As Long, ByVal Record As Long) As Integer
  1137.  
  1138. ' day - month
  1139.  
  1140. '  definition for language in multi-language management
  1141. Public Const LNG_FRENCH = 1
  1142. Public Const LNG_DUTCH = 2
  1143. Public Const LNG_GERMAN = 3
  1144. Public Const LNG_ENGLISH = 4
  1145. Public Const LNG_ITALIAN = 5
  1146. Public Const LNG_SPANISH = 6
  1147. Public Const LNG_CATALAN = 7
  1148. Public Const LNG_POLISH = 8
  1149. Public Const LNG_NORWAY = 9
  1150.  
  1151. Declare Function cGetAscTime Lib "t2win32p.dll" (ByVal nLanguage As Integer) As String
  1152. Declare Function cGetLongDay Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  1153. Declare Function cGetLongMonth Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  1154. Declare Function cGetShortDay Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  1155. Declare Function cGetShortMonth Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  1156. Declare Function cGetSmallDay Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  1157. Declare Function cGetTinyDay Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String
  1158. Declare Function cGetTinyMonth Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String
  1159. Declare Sub cSysMenuChange Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal Position As Integer, ByVal NewMessage As String)
  1160.  
  1161. ' Functions for calculating 2-D geometry
  1162.  
  1163. '  structure for 2-D geometry types
  1164. Type tagVECTOR2
  1165.    x              As Double
  1166.    y              As Double
  1167. End Type
  1168.  
  1169. Declare Sub cV2Add Lib "t2win32p.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1170. Declare Sub cV2Sub Lib "t2win32p.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1171. Declare Sub cV2Combine Lib "t2win32p.dll" (u As tagVECTOR2, ByVal c1 As Double, v As tagVECTOR2, ByVal c2 As Double, w As tagVECTOR2)
  1172. Declare Sub cV2Copy Lib "t2win32p.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1173. Declare Function cV2Dot Lib "t2win32p.dll" (u As tagVECTOR2, v As tagVECTOR2) As Double
  1174. Declare Function cV2Length Lib "t2win32p.dll" (u As tagVECTOR2) As Double
  1175. Declare Function cV2LengthSquared Lib "t2win32p.dll" (u As tagVECTOR2) As Double
  1176. Declare Sub cV2LinearIp Lib "t2win32p.dll" (lo As tagVECTOR2, hi As tagVECTOR2, ByVal alpha As Double, w As tagVECTOR2)
  1177. Declare Sub cV2Mul Lib "t2win32p.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2)
  1178. Declare Sub cV2Neg Lib "t2win32p.dll" (u As tagVECTOR2)
  1179. Declare Sub cV2Normalized Lib "t2win32p.dll" (u As tagVECTOR2)
  1180. Declare Sub cV2Ortho Lib "t2win32p.dll" (u As tagVECTOR2, w As tagVECTOR2)
  1181. Declare Sub cV2ScaledNewLength Lib "t2win32p.dll" (u As tagVECTOR2, ByVal newlen As Double)
  1182. Declare Function cV2SegmentLength Lib "t2win32p.dll" (p As tagVECTOR2, q As tagVECTOR2) As Double
  1183.  
  1184. ' Functions for calculating 3-D geometry
  1185.  
  1186. '  structure for 3-D geometry types
  1187. Type tagVECTOR3
  1188.    x              As Double
  1189.    y              As Double
  1190.    z              As Double
  1191. End Type
  1192.  
  1193. Declare Sub cV3Add Lib "t2win32p.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1194. Declare Sub cV3Sub Lib "t2win32p.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1195. Declare Sub cV3Combine Lib "t2win32p.dll" (u As tagVECTOR3, ByVal c1 As Double, v As tagVECTOR3, ByVal c2 As Double, w As tagVECTOR3)
  1196. Declare Sub cV3Copy Lib "t2win32p.dll" (u As tagVECTOR3, w As tagVECTOR3)
  1197. Declare Sub cV3Cross Lib "t2win32p.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1198. Declare Function cV3Dot Lib "t2win32p.dll" (u As tagVECTOR3, v As tagVECTOR3) As Double
  1199. Declare Function cV3Length Lib "t2win32p.dll" (u As tagVECTOR3) As Double
  1200. Declare Function cV3LengthSquared Lib "t2win32p.dll" (u As tagVECTOR3) As Double
  1201. Declare Sub cV3LinearIp Lib "t2win32p.dll" (lo As tagVECTOR3, hi As tagVECTOR3, ByVal alpha As Double, w As tagVECTOR3)
  1202. Declare Sub cV3Mul Lib "t2win32p.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3)
  1203. Declare Sub cV3Neg Lib "t2win32p.dll" (u As tagVECTOR3)
  1204. Declare Sub cV3Normalized Lib "t2win32p.dll" (u As tagVECTOR3)
  1205. Declare Sub cV3ScaledNewLength Lib "t2win32p.dll" (u As tagVECTOR3, ByVal newlen As Double)
  1206. Declare Function cV3SegmentLength Lib "t2win32p.dll" (p As tagVECTOR3, q As tagVECTOR3) As Double
  1207.  
  1208. Declare Function c3DWeightAverage Lib "t2win32p.dll" (ul3D As tagVECTOR3, ll3D As tagVECTOR3, lr3D As tagVECTOR3, ur3D As tagVECTOR3, ptToLocate3D As tagVECTOR3) As Double
  1209.  
  1210. ' huge string
  1211.  
  1212. Declare Function cHugeStrAdd Lib "t2win32p.dll" (ByVal hsHandle As Long, hsText As String) As Integer
  1213. Declare Function cHugeStrAddress Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1214. Declare Function cHugeStrAppend Lib "t2win32p.dll" (ByVal hsHandle As Long, hsText As String) As Integer
  1215. Declare Function cHugeStrBlocks Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1216. Declare Function cHugeStrClear Lib "t2win32p.dll" (ByVal hsHandle As Long) As Integer
  1217. Declare Function cHugeStrCreate Lib "t2win32p.dll" (ByVal hsSize As Long) As Long
  1218. Declare Function cHugeStrFree Lib "t2win32p.dll" (ByVal hsHandle As Long) As Integer
  1219. Declare Function cHugeStrGetNP Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1220. Declare Function cHugeStrGetWP Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1221. Declare Function cHugeStrLength Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1222. Declare Function cHugeStrMid Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsStart As Long, ByVal hsLength As Long) As String
  1223. Declare Function cHugeStrNext Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsNext As Long) As String
  1224. Declare Function cHugeStrOnDisk Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long
  1225. Declare Function cHugeStrRead Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsBlock As Long) As String
  1226. Declare Function cHugeStrSetNP Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsPtr As Long) As Integer
  1227. Declare Function cHugeStrSetWP Lib "t2win32p.dll" (ByVal hsHandle As Long, ByVal hsPtr As Long) As Integer
  1228. Declare Function cHugeStrSize Lib "t2win32p.dll" (ByVal hsHandle As Long) As Long
  1229.  
  1230. ' t2win-32 version
  1231.  
  1232. Declare Function cGetVersion Lib "t2win32p.dll" () As Single
  1233.  
  1234. ' protect
  1235.  
  1236. Declare Function cDESencrypt Lib "t2win32p.dll" (Text As String, Key As String) As String
  1237. Declare Function cDESdecrypt Lib "t2win32p.dll" (Text As String, Key As String) As String
  1238. Declare Function cDIAMONDencrypt Lib "t2win32p.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  1239. Declare Function cDIAMONDdecrypt Lib "t2win32p.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  1240. Declare Function cHashMD5 Lib "t2win32p.dll" (Text As String) As String
  1241. Declare Function cIDEAencrypt Lib "t2win32p.dll" (Text As String, Key As String) As String
  1242. Declare Function cIDEAdecrypt Lib "t2win32p.dll" (Text As String, Key As String) As String
  1243. Declare Function cMod10 Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1244. Declare Function cMod10R Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1245. Declare Function cMod11 Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1246. Declare Function cMod11R Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1247. Declare Function cMod137 Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1248. Declare Function cMod137R Lib "t2win32p.dll" (ByVal Text As String) As Integer
  1249. Declare Function cRegistrationKey Lib "t2win32p.dll" (ByVal RegText As String, ByVal RegKey1 As Long) As Long
  1250. Declare Function cRegistrationKey2 Lib "t2win32p.dll" (ByVal RegText As String, ByVal RegKey1 As Long, ByVal RegKey2 As Long) As Long
  1251. Declare Function cRegistrationKey3 Lib "t2win32p.dll" (ByVal RegText As String, ByVal RegKey1 As Long, ByVal RegKey2 As Long, ByVal RegKey3 As Long) As Long
  1252. Declare Function cRUBYencrypt Lib "t2win32p.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  1253. Declare Function cRUBYdecrypt Lib "t2win32p.dll" (Text As String, Key As String, ByVal Mode As Integer) As String
  1254.  
  1255. ' file protect
  1256.  
  1257. Public Const CRYPTO_KEY_TOO_SMALL = -1
  1258. Public Const CRYPTO_CANT_INIT_KEY = -2
  1259. Public Const CRYPTO_CANT_INIT_BUFFER = -11
  1260. Public Const CRYPTO_CANT_OPEN_FILEIN = -21
  1261. Public Const CRYPTO_CANT_CREATE_FILEOUT = -22
  1262. Public Const CRYPTO_ERROR_READING_FILEIN = -31
  1263. Public Const CRYPTO_ERROR1_WRITING_FILEOUT = -41
  1264. Public Const CRYPTO_ERROR2_WRITING_FILEOUT = -42
  1265. Public Const CRYPTO_ERROR1_WRITING_LASTBYTE = -51
  1266. Public Const CRYPTO_ERROR2_WRITING_LASTBYTE = -52
  1267. Public Const CRYPTO_BAD_LASTBYTE = -61
  1268.  
  1269. Public Const DIAMOND_FULL_MODE1 = 1          ' more strongest (slowest)
  1270. Public Const DIAMOND_FULL_MODE2 = 3          ' more strong (slow)
  1271. Public Const DIAMOND_LITE_MODE1 = 2          ' strongest (fast)
  1272. Public Const DIAMOND_LITE_MODE2 = 4          ' strong (fastest)
  1273.  
  1274. Public Const RUBY_MODE_MINIMUM = 1           ' speed is of the essence, security secondary.
  1275. Public Const RUBY_MODE_DESK_LOCK = 2         ' reasonable compromise of speed vs security.
  1276. Public Const RUBY_MODE_DEAD_BOLT = 4         ' default = probably good enough for most things.
  1277. Public Const RUBY_MODE_PORTABLE_SAFE = 5     ' security is more important than speed.
  1278. Public Const RUBY_MODE_ANCHORED_SAFE = 8     ' speed isn't much of a concern.
  1279. Public Const RUBY_MODE_BANK_VAULT = 10       ' your pentium has nothing better to do, anyway.
  1280. Public Const RUBY_MODE_FORT_KNOX = 16        ' be cool.
  1281.  
  1282. Declare Function cDESdecryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String) As Long
  1283. Declare Function cDESencryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String) As Long
  1284. Declare Function cDIAMONDdecryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  1285. Declare Function cDIAMONDencryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  1286. Declare Function cIDEAdecryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String) As Long
  1287. Declare Function cIDEAencryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String) As Long
  1288. Declare Function cRUBYdecryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  1289. Declare Function cRUBYencryptFile Lib "t2win32p.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long
  1290.  
  1291. ' media ID - volume
  1292.  
  1293. '  structure for get/set Media ID
  1294. Type tagMEDIAID
  1295.    VolumeName           As String
  1296.    VolumeSerialNumber   As Long
  1297.    SystemName           As String
  1298.    MaxNameLength        As Long
  1299.    FileSystemFlags      As Long
  1300. End Type
  1301.  
  1302. ' structure for get/set DOS Media ID
  1303. Type tagDOSMEDIAID
  1304.    InfoLevel            As String * 2     'use cCVI for integer conversion
  1305.    SerialNumber         As String * 4     'use cCVL for long conversion
  1306.    VolLabel             As String * 11
  1307.    FileSysType          As String * 8
  1308. End Type
  1309.  
  1310. Declare Function cGetMediaID Lib "t2win32p.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer
  1311. Declare Function cGetVolumeLabel Lib "t2win32p.dll" (ByVal nDrive As String) As String
  1312. Declare Function cSetVolumeLabel Lib "t2win32p.dll" (ByVal nDrive As String, ByVal nVolumeLabel As String) As Integer
  1313. Declare Function cDOSGetMediaID Lib "t2win32p.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  1314. Declare Function cDOSSetMediaID Lib "t2win32p.dll" (ByVal nDrive As String, DOSMEDIAID As tagDOSMEDIAID) As Integer
  1315.  
  1316. ' network
  1317.  
  1318. Declare Function cGetNetConnection Lib "t2win32p.dll" (ByVal lpDrive As String, ErrCode As Integer) As String
  1319.  
  1320. ' multi-language message box - input box
  1321.  
  1322. '  definition for message position
  1323. Public Const MB_MESSAGE_LEFT = 0
  1324. Public Const MB_MESSAGE_CENTER = 8192
  1325. Public Const MB_MESSAGE_RIGHT = 16384
  1326.  
  1327. '  definition for timeout management
  1328. Public Const MB_TIMEOUT_2 = 32768
  1329. Public Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  1330. Public Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  1331. Public Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  1332.  
  1333. Public Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  1334. Public Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  1335. Public Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  1336. Public Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  1337. Public Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  1338. Public Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  1339. Public Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  1340. Public Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  1341. Public Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  1342. Public Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  1343. Public Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  1344.  
  1345. Public Const MB_DISPLAY_TIMEOUT = 524288
  1346. Public Const MB_NO_BUTTONS = 1048576
  1347.  
  1348. Declare Function cLngMsgBox Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer
  1349. Declare Sub cLngBoxMsg Lib "t2win32p.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String)
  1350. Declare Function cLngInpBox Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String
  1351. Declare Sub cLngSysMenu Lib "t2win32p.dll" (ByVal nLanguage As Integer, ByVal hWnd As Long)
  1352.  
  1353. ' desktop
  1354.  
  1355. Declare Sub cLoadDesktopBackground Lib "t2win32p.dll" (ByVal FileName As String, ByVal Tile As Integer)
  1356.  
  1357. ' registry
  1358.  
  1359. Public Const RK_NO_ERROR = -1
  1360. Public Const RK_KEY_IS_EMPTY = 1
  1361. Public Const RK_UNABLE_TO_CREATE_KEY = 2
  1362. Public Const RK_UNABLE_TO_OPEN_KEY = 3
  1363. Public Const RK_UNKNOWN_DISPOSITION = 4
  1364. Public Const RK_CANNOT_SET_THE_VALUE = 5
  1365. Public Const RK_UNABLE_TO_QUERY_KEY = 6
  1366.  
  1367. Public Const RK_HKEY_CLASSES_ROOT = 1
  1368. Public Const RK_HKEY_CURRENT_USER = 2
  1369. Public Const RK_HKEY_LOCAL_MACHINE = 3
  1370. Public Const RK_HKEY_USERS = 4
  1371. Public Const RK_HKEY_PERFORMANCE_DATA = 5
  1372. Public Const RK_HKEY_CURRENT_CONFIG = 6
  1373. Public Const RK_HKEY_DYN_DATA = 7
  1374.  
  1375. Declare Function cPutRegistry Lib "t2win32p.dll" (ByVal lpSection As String, ByVal lpKey As String, ByVal lpValue As String) As Integer
  1376. Declare Function cGetRegistry Lib "t2win32p.dll" (ByVal lpSection As String, ByVal lpKey As String, ByVal lpDefault As String) As String
  1377. Declare Function cKillRegistry Lib "t2win32p.dll" (ByVal lpSection As String, ByVal lpKey As String) As Integer
  1378. Declare Function cPutRegistryExt Lib "t2win32p.dll" (ByVal KeyType As Integer, ByVal lpSection As String, ByVal lpKey As String, ByVal lpValue As String) As Integer
  1379. Declare Function cGetRegistryExt Lib "t2win32p.dll" (ByVal KeyType As Integer, ByVal lpSection As String, ByVal lpKey As String, ByVal lpDefault As String) As String
  1380. Declare Function cKillRegistryExt Lib "t2win32p.dll" (ByVal KeyType As Integer, ByVal lpSection As String, ByVal lpKey As String) As Integer
  1381.  
  1382. ' bitmap
  1383.  
  1384. Public Const DIB_SAVE_WINDOW = True
  1385. Public Const DIB_SAVE_CLIENT = False
  1386.  
  1387. Type tagRECT
  1388.    Left                 As Long
  1389.    Top                  As Long
  1390.    Right                As Long
  1391.    Bottom               As Long
  1392. End Type
  1393.  
  1394. Declare Function cDIBSaveScreen Lib "t2win32p.dll" (ByVal lpFilename As String) As Integer
  1395. Declare Function cDIBSaveWindow Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal SaveArea As Integer, ByVal lpFilename As String) As Integer
  1396. Declare Function cDisplaySplash Lib "t2win32p.dll" (ByVal lpFilename As String, ByVal MinimumTimeToStay As Integer, ByVal AutoDestruction As Integer) As Long
  1397. Declare Function cDestroySplash Lib "t2win32p.dll" (ByVal hWnd As Long) As Integer
  1398. Declare Function cShadeRect Lib "t2win32p.dll" (ByVal hDC As Long, lpRect As tagRECT) As Integer
  1399. Declare Function cTileBitmapOnWindow Lib "t2win32p.dll" (ByVal hWnd As Long, ByVal lpFilename As String) As Integer
  1400.  
  1401. ' hook keyboard
  1402.  
  1403. Declare Function cInstallHookKeyboard Lib "t2win32p.dll" (ByVal InstallRemove As Integer) As Integer
  1404.  
  1405. ' printer
  1406.  
  1407. Public Const EPJ_SUCCESS = -1
  1408. Public Const EPJ_PRINTER_NAME_EMPTY = 1
  1409. Public Const EPJ_CANT_OPEN_PRINTER = 2
  1410. Public Const EPJ_STRANGE_ERROR = 3
  1411. Public Const EPJ_CANT_ENUMERATE_MORE_JOBS = 4
  1412.  
  1413. Public Const JOB_STATUS_PAUSED = &H1
  1414. Public Const JOB_STATUS_ERROR = &H2
  1415. Public Const JOB_STATUS_DELETING = &H4
  1416. Public Const JOB_STATUS_SPOOLING = &H8
  1417. Public Const JOB_STATUS_PRINTING = &H10
  1418. Public Const JOB_STATUS_OFFLINE = &H20
  1419. Public Const JOB_STATUS_PAPEROUT = &H40
  1420. Public Const JOB_STATUS_PRINTED = &H80
  1421. Public Const JOB_STATUS_DELETED = &H100
  1422. Public Const JOB_STATUS_BLOCKED_DEVQ = &H200
  1423. Public Const JOB_STATUS_USER_INTERVENTION = &H400
  1424.  
  1425. Type tagJOBINFO
  1426.    sPrinterName         As String      'name of the printer for which the job is spooled
  1427.    sMachineName         As String      'name of the machine that created the print job
  1428.    sUserName            As String      'name of the user who owns the print job
  1429.    sDocument            As String      'name of the print job (for example, "MS-WORD: Review.doc")
  1430.    lJobId               As Long        'job identifier value
  1431.    lStatus              As Long        'job status (multiple OR of JOB_STATUS_x)
  1432.    lPriority            As Long        'job priority (1 : minimum; 99 : maximum)
  1433.    lPosition            As Long        'job's position in the print queue
  1434.    lStartTime           As Long        'earliest time that the job can be printed
  1435.    lUntilTime           As Long        'latest time that the job can be printed
  1436.    lTotalPages          As Long        'number of pages required for the job
  1437.    lSize                As Long        'size, in bytes, of the job
  1438.    lTime                As Long        'total time, in seconds, that has elapsed since the job began printing
  1439.    lPagesPrinted        As Long        'number of pages that have printed
  1440.    wYear                As Integer     'year of the job submitted
  1441.    wMonth               As Integer     'month of the job submitted
  1442.    wDay                 As Integer     'day of the job submitted
  1443.    wHour                As Integer     'hour of the job submitted
  1444.    wMinute              As Integer     'minute of the job submitted
  1445.    wSecond              As Integer     'second of the job submitted
  1446. End Type
  1447.  
  1448. Declare Function cEnumPrinterJobs Lib "t2win32p.dll" (ByVal PrinterName As String, JOBINFO As tagJOBINFO, ByVal FirstNext As Integer) As Integer
  1449. Declare Function cPrinterBins Lib "t2win32p.dll" (ByVal PrinterName As String, ByVal PrinterPort As String) As Integer
  1450.  
  1451. ' open files
  1452.  
  1453. Public Const ENUMERATE_ALL_OPEN_FILES = True
  1454. Public Const ENUMERATE_ONLY_OPEN_UNMOVABLE_FILES = False
  1455.  
  1456. Public Const NO_ERROR_OPEN_FILES = True
  1457. Public Const NO_MORE_OPEN_FILES = 0
  1458. Public Const ERROR_LOCK_LOGICAL_VOLUME = 1
  1459. Public Const ERROR_ENUMERATE_OPEN_FILES = 2
  1460. Public Const ERROR_UNLOCK_LOGICAL_VOLUME = 3
  1461. Public Const ERROR_CAN_CONVERT_TO_LONG_NAME = 4
  1462.  
  1463. Declare Function cEnumOpenFiles Lib "t2win32p.dll" (ByVal nDrive As String, ByVal EnumType As Integer, ByVal FirstNext As Integer, OpenFileName As String, OpenFileMode As Long, OpenFileType As Long) As Integer
  1464.  
  1465.  
  1466.